10 Z=31:DA=207:G=0:O=0:JK=1000:M=1
20 POKE53280,0:POKE53281,0
30 A$(1)="*******":N$(1)="*******"
40 A$(2)="*     *":N$(2)="      *"
50 A$(3)="*     *":N$(3)="     *"
60 A$(4)="*     *":N$(4)="    *"
70 A$(5)="*******":N$(5)="   *"
80 A$(6)="*     *":N$(6)="  *"
90 A$(7)="*     *":N$(7)=" *"
100 A$(8)="*     *":N$(8)="*"
110 A$(9)="*     *":N$(9)="*******"
120 PRINT"[147]"
130 FORQ=1TO7:J=J+1:Z=Z-1
140 FORI=1TO9:POKE646,Q:PRINTTAB(J);A$(I);TAB(Z);N$(I):NEXT
150 PRINT"":FORR=1TOQ:PRINT"";:NEXT
160 NEXTQ
170 :PRINT"*"
180 :PRINT"******"
190 :PRINT"     *"
200 PRINT"[159]EIN UNTERHALTSAMES SPIEL VON"
210 PRINT"         TOM OSSIECK"
220 FORQ=1TO120:NEXTQ
230 FORI=1TO300:POKE53280,1:::::::::::::::::::::::::::POKE53280,0:NEXT
240 PRINT"DATEN WERDEN GELESEN":FORQ=1TO400:NEXTQ
250 REM *** DIM ***
260 DIMB$(500):DIMC$(500):DIMV$(500):DIMA(500)
270 REM *** DATEN LESEN ***
280 FORI=1TODA
290 READB$(I),C$(I)
300 NEXTI
310 REM *** MENUE ***
320 :POKE53280,3
330 PRINT"[147][152][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
340 PRINT"[145][152][180]             MENUEAUSWAHL             [170]"
350 PRINT"[145][152][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
360 PRINT"[145][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
370 PRINT"[145][180]                WAEHLE                [170]"
380 PRINT"[145][180]                [160]                     [170]"
390 PRINT"[145][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
400 PRINT"[145][180]    1 : WEITERE FRAGEN LADEN          [170]"
410 PRINT"[145][180]                                      [170]"
420 PRINT"[145][180]    2 : SELBER FRAGEN UND ANTWORTEN   [170]"
430 PRINT"[145][180]        MACHEN UND ABSPEICHERN        [170]"
440 PRINT"[145][180]                                      [170]"
450 PRINT"[145][180]    3 : MIT DEM SPIEL BEGINNEN        [170]"
460 PRINT"[145][180]                                      [170]"
470 PRINT"[145][180]    4 : ANLEITUNG                     [170]"
480 PRINT"[145][180]                                      [170]"
490 PRINT"[145][180]    5 : SPIEL BEENDEN                 [170]"
500 PRINT"[145][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
510 PRINT"[145][158][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
520 PRINT"[145][158][180]          DEINE WAHL :                [170]"
530 PRINT"[145][158][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
540 GETX$:IFX$=""THEN540
550 IFX$="1"THEN610
560 IFX$="2"THEN830
570 IFX$="3"THEN1060
580 IFX$="4"THEN3900
590 IFX$="5"THEN3880
600 IFX$<>"1"ANDX$<>"2"ANDX$<>"3"ANDX$<>"4"ANDX$<>"5"THEN540
610 PRINT"[158][145][145][145]";X$
620 FORQ=1TO500:NEXTQ
630 REM *** FRAGEN LADEN ***
640 FORI=1TO250:NEXTI:POKE53280,2
650 PRINT"[147][152][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
660 PRINT"[145][152][180]           FRAGEN LADEN               [170]"
670 PRINT"[145][152][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
680 PRINT"[158]          DATEINAME :                   ":PRINT
690 POKE19,64:INPUT"[158][145][145][145]";A$:POKE19,0:PRINT
700 PRINT"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
710 PRINT"[145][180]         DATEI WIRD GELADEN           [170]"
720 PRINT"[145][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
730 OPEN10,8,10,A$+",S,R"
740 I=0
750 I=I+1
760 INPUT#10,B$(I)
770 IFB$(I)="*"THEN800
780 INPUT#10,C$(I)
790 GOTO750
800 B$(I)=""
810 CLOSE10
820 X$="":DA=I:GOTO320
830 REM *** FRAGEN MACHEN ***
840 PRINT"[158][145][145][145]";X$:FORI=1TO500:NEXTI
850 POKE53280,2
860 PRINT"[147][152][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
870 PRINT"[145][152][180]     FRAGEN UND ANTWORTEN MACHEN      [170]"
880 PRINT"[145][152][180]           UND ABSPEICHERN            [170]"
890 PRINT"[145][152][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
900 PRINT"[158]          DATEINAME :                   ":PRINT
910 POKE19,64:INPUT"[158][145][145][145]";A$:POKE19,0:PRINT
920 C=0
930 PRINT"[147]"
940 C=C+1
950 POKE19,64:PRINTC;:INPUT".) FRAGE : ";B$(C):POKE19,0:PRINT:PRINT
960 IFB$(C)="*"THEN990
970 POKE19,64:PRINTC;:INPUT".) ANTWORT : ";C$(C):POKE19,0:PRINT:PRINT
980 GOTO930
990 OPEN10,8,10,A$+",S,W"
1000 FORI=1TOC
1010 PRINT#10,B$(I)
1020 PRINT#10,C$(I)
1030 NEXTI
1040 CLOSE10
1050 X$="":GOTO320
1060 REM *** HAUPTSPIEL ***
1070 PRINT"[158][145][145][145]";X$:FORI=1TO500:NEXTI
1080 POKE53280,2
1090 PRINT"[152][147][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
1100 PRINT"[152][145][180]                SPIEL                 [170]"
1110 PRINT"[152][145][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
1120 PRINT:POKE19,64:INPUT"[158]ANZAHL DER MITSPIELER : ";AN:POKE19,0:PRINT:PRINT
1130 IFAN>8ORAN<1THENPRINT"[145][145][145][145]":GOTO1120
1140 PRINT:PRINT:FORN=1TOAN
1150 POKE19,64:PRINT"NAME SPIELER";N;:INPUT" : ";SP$(N):POKE19,0:PRINT:NEXT
1160 I=INT(DA*RND(0)+1)
1170 IFA(I)=1THEN1160
1180 O=O+1:IFO=200THENN$="ENDAUSWERTUNG":GOTO4150
1190 A(I)=1
1200 SP=SP+1:IFSP>ANTHENSP=1
1210 LETL=LEN(C$(I)):D=L
1220 IFM=1THENGOSUB1720
1225 M=1
1230 PRINT"[147][152][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
1240 PRINT"[145][152][180]                                      [170]"
1250 PRINT"[145][152][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
1260 PRINT"[145][145][145][152]SPIELER : ";SP$(SP);"PUNKTE :";PU(SP)
1270 PRINT"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
1280 PRINT"[145][180]                                      [170]"
1290 PRINT"[145][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
1300 PRINT"[145][145][145]";B$(I)
1310 PRINT"[158][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
1320 PRINT"[145][180]                                      [170]"
1330 PRINT"[145][158][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
1340 FORS=1TOL
1350 PRINT"[145][145][145]";:FORZ=1TOS:PRINT"";:NEXTZ:PRINTV$(S);:PRINT:PRINT
1360 NEXTS
1370 PRINT"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
1380 PRINT"[145][180] TIPPE 1 FUER EINEN LOESUNGSVERSUCH   [170]"
1390 PRINT"[145][180] TIPPE 2 FUER EINEN HILFSBUCHSTABEN   [170]"
1400 PRINT"[145][180] TIPPE 3 FUER DEN NAECHSTEN BEGRIFF   [170]"
1410 PRINT"[145][180] TIPPE 4 UM INS HAUPTMENUE ZU KOMMEN  [170]"
1420 PRINT"[145][180] TIPPE 5 FUER ZWISCHENAUSWERTUNG      [170]"
1430 PRINT"[145][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
1440 GETX$:IFX$=""THEN1440
1450 IFX$="1"THEN1510
1460 IFX$="2"THEN1600
1470 IFX$="3"THENPU(SP)=PU(SP)-D:PRINT"[158]";C$(I):FORQ=1TOJK:NEXTQ:GOTO1160
1480 IFX$="4"THEN310
1490 IFX$="5"THENN$="ZWISCHENAUSWERTUNG":GOTO4150
1500 IFX$<>"1"ORX$<>"2"ORX$<>"3"ORX$<>"4"ORX$<>"5"THEN1440
1510 REM *** LOESUNGSVERSUCH ***
1520 POKE19,64:INPUT"DEINE LOESUNG : ";L$:POKE19,0:PRINT:PRINT
1530 IFL$=C$(I)THEN1570
1540 PRINT"[155]  DEINE LOESUNG IST LEIDER FALSCH !!!"
1550 FORQ=1TO1500:NEXTQ
1560 PU(SP)=PU(SP)-10:GOTO1230
1570 REM *** LOESUNG RICHTIG ***
1580 PRINT"[155]GRATULIERE, DEINE LOESUNG IST RICHTIG."
1590 FORQ=1TO1000:NEXTQ:PU(SP)=PU(SP)+D:GOTO1160
1600 REM *** HILFSBUCHSTABE ***
1610 PRINT"[155]HILFSBUCHSTABE : ";
1620 GETH$:IFH$=""THEN1620
1630 PRINTH$
1640 FORK=1TOL
1650 IFMID$(C$(I),K,1)=" "THENGOSUB1790:GOTO1700
1660 IFMID$(C$(I),K,1)<>H$THEN1700
1670 LETD=D-1
1680 LETV$(K)=H$
1690 GOTO1700
1700 NEXTK
1710 GOTO1230
1720 FORK=1TOL
1730 IFMID$(C$(I),K,1)<>" "THEN1760
1740 LETV$(K)=" "
1750 GOTO1770
1760 LETV$(K)="."
1770 NEXTK
1780 RETURN
1790 V$(K)=" ":RETURN
1800 DATAWAS IST EIN MINISTER ?,EIN MITGLIED DER REGIERUNG
1810 DATAWAS IST CHAUVINISMUS ?,UEBERTRIEBENER NATIONALISMUS
1820 DATAWAS IST EINE CHARTA ?,EINE URKUNDE
1830 DATAWAS IST PAZIFISMUS ?,BESTREBUNG ZUR BESEITIGUNG DES KRIEGES
1840 DATAWAS IST DEMOSKOPIE ?,DIE MEINUNGSFORSCHUNG
1850 DATAWAS IST EIN AGREEMENT ?,EINE UEBEREINKUNFT
1860 DATAWAS IST EIN PLENUM ?,DIE VOLLVERSAMMLUNG EINES PARLAMENTS
1870 DATAWAS IST EIN NANSENPASS ?,EIN PASS FUER STAATENLOSE
1880 DATAWAS IST TERROR ?,DIE SCHRECKENSHERSCHAFT
1890 DATAWAS IST NATIONALISMUS ?,DIE UEBERBEWERTUNG DES NATIONALEN
1900 DATAWAS IST EIN MANDAT ?,DAS AMT EINES ABGEORDNETEN
1910 DATAWAS IST EIN EMIGRANT ?,EIN AUSWANDERER
1920 DATAWAS IST DER HAMMELSPRUNG ?,EINE ABSTIMMUNGSMETHODE
1930 DATAWAS IST EINE PETITION ?,EINE BITTE AN DAS PARLAMENT
1940 DATAWAS IST EIN KANDIDAT ?,EINE BEWERBER UM EIN AMT
1950 DATAWAS BEDEUTET LEGAL ?,GESETZLICH
1960 DATAWAS IST DAS COMMONWEALTH ?,DER BRITISCHE STAATENBUND
1970 DATAWAS IST EINE LEGISLATIVE ?,DIE GESETZGEBENE GEWALT
1980 DATAWAS IST EURATOM ?,DIE EUROPAEISCHE ATOMGEMEINSCHAFT
1990 DATAWAS BEDEUTET WHO ?,WELTGESUNDHEITSORGANISATION DER UN
2000 DATAWAS IST EINE ALLIANZ ?,EIN BUENDNIS
2010 DATAWAS IST AUTARKIE ?,DIE WIRTSCHAFTLICHE UNABHAENGIGKEIT
2020 DATAWAS IST DEPORTATION ?,DIE VERBANNUNG VON MENSCHEN
2030 DATAWAS IST EIN KONSUL ?,EIN AUSLANDSVERTRETER EINES STAATES
2040 DATAWAS SIND KONSUMGUETER ?,VERBRAUCHSGUETER
2050 DATAWAS IST EIN KONKORDAT ?,EIN VERTRAG ZWISCHEN KIRCHE UND STAAT
2060 DATAWAS IST INTEGRATION ?,EIN ZUSAMMENSCHLUSS VON STAATEN
2070 DATAWAS IST DAS KABINET ?,DIE REGIERUNG
2080 DATAWAS SIND SCHOEFFEN ?,GEWAEHLTE LAIENRICHTER
2090 DATAWAS IST EIN PAKT ?,EIN VERTRAG ZWISCHEN STAATEN
2100 DATAWAS IST EIN PRIVILEG ?,EIN VORRECHT
2110 DATAWAS IST DIE EXEKUTIVE ?,DIE VOLLZIEHENDE STAATSGEWALT
2120 DATAWAS IST EXIL ?,VERBANNUNG
2130 DATAWAS IST INFLATION ?,GELDENTWERTUNG
2140 DATAWAS BEDEUTET LIBERAL ?,FREISINNIG
2150 DATAIN WELCHER STADT IST DER ROTE PLATZ ?,MOSKAU
2160 DATAWO STEHT DIE HAGIA SOPHIA?,ISTANBUL
2170 DATAWAS IST EINE OSTERIA ?,EIN ITALIENISCHES WIRTSHAUS
2180 DATAWO FAND DER MEISTERTRUNK STATT ?,ROTHENBURG
2190 DATAWO LIEGEN DIE FALKLANDINSELN ?,SUEDATLANTIK
2200 DATAWAS IST ASSAM ?,EIN INDISCHER BUNDESSTAAT
2210 DATAWO LIEGEN DIE DOLOMITEN ?,SUEDTIROL
2220 DATAWO IST DAS GRAB KARLS D. GROSSEN ?,AACHEN
2230 DATAWO IST DER DOGENPALAST ?,VENEDIG
2240 DATAWO STEHT DER BIG BEN ?,LONDON
2250 DATAWO LIEGT ADELAIDE ?,AUSTRALIEN
2260 DATAWO LIEGEN DIE ANDEN ?,SUEDAMERIKA
2270 DATAWAS IST EINE HAZIENDA ?,EINE FARM IN SUEDAMERIKA
2280 DATAZU WELCHER STADT GEHOERT HARLEM ?,NEW YORK
2290 DATABEI WELCHEM ORT IST DER RHEINFALL ?,SCHAFFHAUSEN
2300 DATAWO LIEGT DIE INSEL CAPRI ?,IM GOLF VON NEAPEL
2310 DATAWO LIEGT DER GARDASEE ?,OBERITALIEN
2320 DATAIN WELCHER STADT IST DIE BASTILLE ?,PARIS
2330 DATAIN WELCHEM LAND LIEGT BRABANT ?,BELGIEN
2340 DATAWO LIEGT DIE STADT TAIPEH ?,AUF FORMOSA
2350 DATAIN WELCHER STADT IST DER PRATER ?,WIEN
2360 DATAWO SIND DIE NIAGARAFAELLE ?,NORDAMERIKA
2370 DATAWIE HEISST DIE GROESSTE KIRCHE ROMS ?,PETERSKIRCHE
2380 DATAWAS IST POLENTA ?,EINE ITALIENISCHE MAISSPEISE
2390 DATAWO LIEGT GENUA ?,IN ITALIEN AM MITTELMEER
2400 DATAWAS IST PORTER ?,EIN DUNKLES ENGLISCHES BIER
2410 DATAWAS IST SERENGETI ?,AFRIKANISCHER NATIONALPARK
2420 DATANAME DES NATIONALMUSEUM IN MADRID?,PRADO
2430 DATAWO STEHT DER GROSSGLOCKNER (LAND) ?,OESTERREICH
2440 DATAWO STEHT DAS KOLOSSEUM ?,ROM
2450 DATAZU WELCHER STADT GEHOERT SPANDAU ?,BERLIN
2460 DATAWO IST DAS THEODERICHGRAB (STADT) ?,RAVENNA
2470 DATAZU WELCHER INSELGRUPPE GEHOERT BALI ?,SUNDAINSELN
2480 DATAZU WELCHER STADT GEHOERT SCHOENEBERG ?,BERLIN
2490 DATAWO STEHT DAS HOLSTENTOR (STADT) ?,LUEBECK
2500 DATAWO LIEGT DIE BUKOWINA ?,RUMAENIEN
2510 DATAWAS VERSTEHT MAN UNTER ATMOSPHAERE ?,DIE LUFTHUELLE DER ERDE
2520 DATAWAS IST EINE RAUMSONDE ?,FORSCHUNGSRAKETE
2530 DATAWIE HEISSEN RUSSISCHE WELTRAUMFAHRER ?,KOSMONAUTEN
2540 DATAWIE HIESS DIE 1 RUSS. RAUMFAHRERIN ?,VALENTINA TERESCHKOWA
2550 DATAWIE HEISSEN AMERIK. WELTRAUMFAHRER ?,ASTRONAUTEN
2560 DATAWAS VERSTEHT MAN UNTER 'G' ?,NORMALE ERDANZIEHUNGSKRAFT
2570 DATAWAS IST DAS APOGAEUM ?,ERDFERNSTE PUNKT EINES STERNES
2580 DATAWAS SIND ASTEROIDEN ?,KLEINE PLANETEN
2590 DATAWAS VERSTEHT MAN UNTER ASTRONAUTIK ?,WELTRAUMFAHRT
2600 DATAWELCHE AUFGABE HATTE NIMBUS 1 ?,WETTERBEOBACHTUNG
2610 DATAWIE HEISST DER GROESSTE ASTEROID ?,CERES
2620 DATAWELCHE AUFGABE HATTE INTELSAT 2 ?,NACHRICHTENUEBERMITTLUNG
2630 DATAWAS IST EIN ERIMIT ?,EIN EINSIEDLER
2640 DATAWAS IST EINE ESKORTE ?,EIN MILITAERISCHES GELEIT
2650 DATAWAS IST LABERDAN ?,EIN EINGESALZENER DORSCH
2660 DATAWAS IST EINE FURT ?,EINE SEICHTE STELLE IM FLUSS
2670 DATAWAS IST EIN GLOBUS ?,EINE NACHBILDUNG DER ERDKUGEL
2680 DATAWAS IST DINKEL ?,EINE WEIZENART
2690 DATAWAS IST GNEIS ?,EIN URGESTEIN
2700 DATAWAS IST EIN GNU ?,EINE SUEDAFRIKANISCHE ANTILOPE
2710 DATAWAS IST EIN GIMPEL ?,EIN DOMPFAFF
2720 DATAWER WAREN DIE MAYAS ?,EIN INDIANERVOLK MITTELAMERIKAS
2730 DATAWAS VERSTEHT MAN UNTER MONOKULTUR ?,DIE EINSEITIGE BODENNUTZUNG
2740 DATAWAS IST EIN MIKROSKOP ?,EIN VERGROESSERUNGSGERAET
2750 DATAWAS IST EIN MIKROMETER ?,EIN FEINMESSGERAET
2760 DATAWAS IST MIKRONESIEN ?,EINE INSELGRUPPE IM STILLEN OZEAN
2770 DATAWAS IST EIN MAGIER ?,EIN ZAUBERER
2780 DATAWER IST MANITU ?,INDIANERGOTT
2790 DATAWAS IST GAMMA ?,EIN GRIECHISCHER BUCHSTABE
2800 DATAWAS IST EIN FRESKO ?,EINE WANDMALEREI
2810 DATAWAS IST LAVA ?,EIN FLUESSIGER VULKANAUSWURF
2820 DATAWAS BEDEUTET OBLIGATORISCH ?,PFLICHTGEMAESS
2830 DATAWAS IST VINETA ?,EINE VERSUNKENE STADT
2840 DATAWAS IST EINE HEIDSCHNUCKE ?,EINE SCHAFRASSE
2850 DATAWIE HIESS HEKTORS FRAU ?,ANDROMACHE
2860 DATAWAS IST EIN SKALP ?,KOPFHAUT MIR HAAREN
2870 DATAWAS IST EIN ATOLL ?,EINE RINGFOERMIGE KORALLENINSEL
2880 DATAWAS IST EINE SIMILI ?,EIN IMITIERTER EDELSTEIN
2890 DATAWAS IST DER SUPERLATIV ?,DIE HOECHSTE STEIGERUNGSSTUFE
2900 DATAWER WAR DIANA ?,DIE ROEMISCHE JAGDGOETTIN
2910 DATAWAS IST ABSTINENZ ?,DIE ENTHALTSAMKEIT
2920 DATAWAS IST EIN GRISLY ?,EIN NORDAMERIKANISCHER BAER
2930 DATAWER WAR GROCK ?,EIN CLOWN
2940 DATAWER ZERSCHLUG DEN GORDISCHEN KNOTEN ?,ALEXANDER DER GROSSE
2950 DATAWAS IST EIN ZIEGENBART ?,EIN KEULENPILZ
2960 DATAWAS IST EIN WELPE ?,EIN JUNGER HUND
2970 DATAWAS IST EIN HADSCHI ?,EIN MEKKAPILGER
2980 WAS IST EINE ALTERNATIVE PRINT,EINE WAHL ZWISCHEN ZWEI MOEGLICHKEITEN
2990 DATAWER WAR LAOKOON ?,EIN TROJANISCHER PRIESTER
3000 DATAWAS SIND TERMITEN ?,STAATENBILDENDE INSEKTEN
3010 DATAWAS IST EIN SPLEEN ?,EINE VERSCHROBENHEIT
3020 DATAWAS IST SURREALISMUS ?,EINE KUNSTRICHTUNG
3030 DATAWAS IST SILIKOSE ?,EINE STAUBEINATMUNGSKRANKHEIT
3040 DATAWAS IST EIN SOMBRERO ?,EIN BREITRANDIGER HUT
3050 DATAWAS IST EIN TRAUERMANTEL ?,EIN SCHMETTERLING
3060 DATAWAS IST EIN TRUEFFEL ?,EIN SPEISEPILZ
3070 DATAWAS IST EIN VAKUUM ?,EIN FAST LUFTLEERER RAUM
3080 DATAWAS IST EIN DUO ?,EIN MUSIKSTUECK FUER ZWEI INSTRUMENTE
3090 DATAWAS HEISST VIVACE ?,LEBHAFT
3100 DATAWAS IST EINE VARIATION ?,EINE ABWANDLUNG DES THEMAS
3110 DATAWIE HIESS DIE SCHWESTER MOZARTS ?,NANNERL
3120 DATAWER KOMPONIERTE DIE OPER NORMA ?,VINCENZO BELLINI
3130 DATAWAS BEDEUTET PIANISSIMO ?,SEHR LEISE
3140 DATAWAS BEDEUTET A CAPELLA ?,GESANG OHNE MUSIKBEGLEITUNG
3150 DATAWAS IST EINE BALALAIKA ?,EIN RUSSISCHES SAITENINSTRUMENT
3160 DATAWAS BEDEUTET UNISONO ?,EINSTIMMIG
3170 DATAWAS IST EINE SOUBRETTE ?,EIN ROLLENFACH IN DER OPER
3180 DATAWAS BEDEUTET FORTE ?,LAUT
3190 DATAWAS IST EINE FERMATE ?,EIN VERLAENGERUNGSZEICHEN
3200 DATAWAS IST EIN PRAELUDIUM ?,EIN VORSPIEL
3210 DATAWAS IST EIN QUARTETT ?,EIN VIERSTIMMIGES TONSTUECK
3220 DATAWAS SIND KASTAGNETTEN ?,HOELZERNE KLAPPERSCHLANGEN
3230 DATAWAS IST EINE FUGE ?,EIN MEHRSTIMMIGER MUSIKSATZ
3240 DATAWAS IST EIN SKELETT ?,EIN KNOCHENGERUEST
3250 DATAWELCHER MENSCH. KNOCHEN HEISST ATLAS ?,DER OBERSTE HALSWIRBEL
3260 DATAWAS IST HEILSERUM ?,SCHUTZSTOFF GEGEN INFEKTIONSKRANKHEITEN
3270 DATAWAS IST PEPSIN ?,EIN FERMENT DES MAGENSAFTES
3280 DATAWIE HEISST DAS TABAKGIFT ?,NIKOTIN
3290 DATAWAS IST EINE INJEKTION ?,EINE EINSPRITZUNG
3300 DATAWAS IST INSULIN ?,EIN HORMON DER BAUCHSPEICHELDRUESE
3310 DATAWOZU BRAUCHT DER MAGEN PEPSIN ?,ZUM VERDAUEN VON EIWEISS
3320 DATAWAS IST TETANUS ?,WUNDSTARRKRAMPF
3330 DATAWO LIEGT DAS NERVENZENTRUM ?,IM GEHIRN
3340 DATAWIE NENNT MAN SAUERSTOFFREICHES BLUT ?,ARTERIELLES BLUT
3350 DATAWAS IST DIE EPIDERMIS ?,DIE OBERSTE HAUTSCHICHT
3360 DATAWIE HEISST DAS TEEGIFT ?,TEIN
3370 DATAWAS IST LIPASE ?,EIN FETTSPALTENDES FERMENT
3380 DATAWIE HEISST DAS GIFT IM KAFFEE ?,KOFFEIN
3390 DATAWAS IST BLUTPLASMA ?,DER FLUESSIGE BESTANDTEIL DES BLUTES
3400 DATAWAS IST SEPSIS PRINT,BLUTVERGIFTUNG
3410 DATAWAS IST FIBRIN PRINT,DER BLUTFASERSTOFF
3420 DATAWAS IST BLUTTRANSFUSION ?,BLUTUEBERTRAGUNG
3430 DATAWAS IST DESINFEKTION ?,DIE VERNICHTUNG VON KRANKHEITSKEIMEN
3440 DATAWAS IST THROMBOSE ?,DIE BLUTADERVERSTOPFUNG
3450 DATAWIE HEISST DAS SEHLOCH DES AUGES ?,PUPILLE
3460 DATAWELCHER AUGENTEIL HEISST IRIS ?,DIE REGENBOGENHAUT
3470 DATAWAS IST LEPRA ?,DER AUSSATZ
3480 DATAWAS SIND ANTIBIOTIKA ?,BAKTERIENHEMMENDE HEILMITTEL
3490 DATAWAS IST EIN GERSTENKORN ?,EINE VEREITERUNG AM AUGENLID
3500 DATAWELCHER KOERPERTEIL HEISST PFOERTNER ?,DER MAGENAUSGANG
3510 DATAWIE HEISSEN DIE ZWEI UNTERARMKNOCHEN ?,ELLE UND SPEICHE
3520 DATAWAS IST KARIES ?,ZAHNFAEULE
3530 DATAWAS IST EIN KARBUNKEL ?,EIN BLUTGESCHWUER
3540 DATAWAS SIND HORMONE ?,DRUESENAUSSCHEIDUNGEN
3550 DATAWOZU DIENT DIE LUNGE ?,ZUR ATMUNG
3560 DATAWAS IST DER BIZEPS ?,DER OBERARMMUSKEL
3570 DATAWAS SIND BAZILLEN ?,STAEBCHENFOERMIGE BAKTERIEN
3580 DATAWAS SIND VAKZINE ?,IMPFSTOFFE
3590 DATAWAS IST SKORBUT ?,EINE VITAMINMANGELKRANKHEIT
3600 DATAWAS SIND FERMENTE ?,VOM KOERPER GEBILDETE WIRKSTOFFE
3610 DATAWIE HEISSEN SEHR KLEINE HAARGEFAESSE ?,KAPILLAREN
3620 DATAWIE NENNT MAN SAUERSTOFFARMES BLUT ?,VENOESES BLUT
3630 DATAWO LIEGT DAS GLEICHGEWICHTSORGAN ?,IM OHR
3640 DATAWER WAR PAUL RUBENS ?,EIN NIEDERLAENDISCHER MALER
3650 DATAWER WAR GIOVANNI BATTISTA TIEPOLO ?,EIN ITALIENISCHER MALER
3660 DATAWER WAR TIZIANO VECELLI ?,EIN ITALIENISCHER MALER
3670 DATAWER WAR RAINER MARIA RILKE /,EIN DEUTSCHER DICHTER
3680 DATAWER WAR PIERRE AUGUSTE RENOIR ?,EIN FRANZOESISCHER MALER
3690 DATAWER WAR ALOIS SENEFELDER ?,DER ERFINDER DER LITHOGRAPHIE
3700 DATAWER WAR GIUSEPPE VERDI ?,EIN ITALIENISCHER KOMPONIST
3710 DATAWER WAR HEINRICH SCHLIEMANN ?,EIN DEUTSCHER ARCHAEOLOGE
3720 DATAWER WAR RICHARD WAGNER ?,EIN DEUTSCHER KOMPONIST
3730 DATAWER WAR FRIEDLIEB FERDINAND RUNGE ?,EIN DEUTSCHER CHEMIKER
3740 DATAWER WAR WILHELM BUSCH ?,EIN DEUTSCHER DICHTER UND ZEICHNER
3750 DATAWER WAR GEORGE WASHINGTON ?,DER ERSTE PRAESIDENT DER USA
3760 DATAWER WAR HEINRICH BRUENING ?,EIN DEUTSCHER REICHSKANZLER
3770 DATAWER WAR ARCHIMEDES ?,EIN GRIECHISCHER MATHEMATIKER
3780 DATAWER WAR SOLOMON BANDARANAIKE ?,EIN CEYLONESISCHER MINISTERPRAESIDENT
3790 DATAWAS IST EINE A-PRUEFUNG ?,DIE ERSTE PRUEFUNG BEIM SEGELFLUG
3800 DATAWAS IST DIE BEA ?,EINE BRITISCHE LUFTFAHRTGESELLSCHAFT
3810 DATAWIE HEISST DER FLUGPLATZ VON WIEN ?,SCHWECHAT
3820 DATAWAS VERSTEHT MAN UNTER AERONAUTIK ?,DIE LUFTFAHRT
3830 DATAWAS IST EIN VARIOMETER ?,EIN MESSGERAET FUER STEIGEN UND FALLEN
3840 DATAWAS IST EIN HELIKOPTER ?,EIN HUBSCHRAUBER
3850 DATAWIEVIELE MOTOREN HATTE DIE DO-X ?,ZWOELF
3860 DATAWAS IST EINE BAUCHLANDUNG ?,EINE LANDUNG OHNE FAHRWERK
3870 DATAWER ERFAND DEN FREITRAGENDEN FLUEGEL ?,HUGO JUNKERS
3880 PRINT"[158][145][145][145]";X$:FORI=1TO500:NEXTI
3890 SYS64764
3900 PRINT"[158][145][145][145]";X$:FORQ=1TO500:NEXTQ
3910 PRINT"[147][152][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
3920 PRINT"[145][152][180]              ANLEITUNG               [170]"
3930 PRINT"[145][152][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
3940 PRINT"[145][158][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
3950 PRINT"[145][180]SINN DES SPIELS IST ES, MIT MOEGLICHST[170]"
3960 PRINT"[145][180]WENIGEN HILFSBUCHSTABEN UND LOESUNGS -[170]"
3970 PRINT"[145][180]VERSUCHEN, DIE GESTELLTE FRAGE RICHTIG[170]"
3980 PRINT"[145][180]ZU BEANTWORTEN. DIE ANTWORT BESTEHT   [170]"
3990 PRINT"[145][180]AUS SOVIELEN BUCHSTABEN, WIE PUNKTE ZU[170]"
4000 PRINT"[145][180]ZU SEHEN SIND.                        [170]"
4010 PRINT"[145][180]UM ZU GEWINNEN, MUSS MAN SOVIELE      [170]"
4020 PRINT"[145][180]PUNKTE, WIE MOEGLICH ERREICHEN. FUER  [170]"
4030 PRINT"[145][180]JEDEN HILFSBUCHSTABEN, DER AUF DEM    [170]"
4040 PRINT"[145][180]BILDSCHIRM ERSCHEINT, WIRD EIN PUNKT  [170]"
4050 PRINT"[145][180]ABGEZOGEN. FUER JEDEN FALSCHEN        [170]"
4060 PRINT"[145][180]LOESUNGSVERSUCH WERDEN 10 PUNKTE      [170]"
4070 PRINT"[145][180]ABGEZOGEN. VERSUCHT MAN ERST GAR NICHT[170]"
4080 PRINT"[145][180]DEN BEGRIFF ZU ERRATEN, ERHAELT MAN   [170]"
4090 PRINT"[145][180]SOVIELE MINUSPUNKTE, WIE DAS WORT LANG[170]"
4100 PRINT"[145][180]IST.                                  [170]"
4110 PRINT"[145][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
4120 PRINT"[145][180]                TASTE                 [170]"
4130 GETX$:IFX$=""THEN4130
4140 GOTO310
4150 PRINT"[147][152][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
4160 PRINT"[145][152][180]                                      [170]"
4170 PRINT"[145][152][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
4180 PRINT"";N$
4190 PRINT"[158][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
4200 FORQ=1TO2*AN
4210 PRINT"[145][180]                                      [170]"
4220 NEXTQ
4230 FORQ=1TOAN
4240 PRINT"":PRINT"":FORY=1TOQ:PRINT"":NEXTY
4250 PRINT"[145][158]";SP$(Q):PRINT"[145]";:PRINTSPC(20);": ";PU(Q)
4260 NEXTQ
4270 PRINT"[158][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
4280 IFN$="ENDAUSWERTUNG"THEN4350
4290 PRINT" WEITER (W),HAUPTMENUE(H) O. ENDE (E) "
4300 GETX$:IFX$=""THEN4300
4310 IFX$="W"THENSP=SP-1:A(I)=0:M=0:GOTO1190
4320 IFX$="H"THEN4410
4330 IFX$="E"THENO=199:GOTO1180
4340 IFX$<>"W"ANDX$<>"E"ANDX$<>"H"THEN4300
4350 PRINT" DEM SIEGER HERZLICHEN GLUECKWUNSCH !!!"
4360 PRINT" HAUPTMENUE (H) ODER ENDE (E) ?":
4370 GETX$:IFX$=""THEN4370
4380 IFX$="H"THEN4410
4390 IFX$="E"THEN3890
4400 IFX$<>"H"ANDX$<>"E"THEN4370
4410 FORQ=1TO8
4420 SP$(Q)="":PU(Q)=0:NEXT:SP=0:GOTO310